home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
flilib.zip
/
FLISRC.ZIP
/
BSAME.ASM
< prev
next >
Wrap
Assembly Source File
|
1989-12-18
|
427b
|
32 lines
;bsame.asm - contains i86_bsame()
_TEXT SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS: _TEXT
PUBLIC _i86_bsame
;i86_bsame(d, count)
;find out how many bytes in a row are the same value
_i86_bsame PROC far
push bp
mov bp,sp
push di
cld
les di,[bp+4+2]
mov cx,[bp+8+2]
mov ax,es:[di]
inc cx
repe scasb
mov ax,[bp+8+2]
sub ax,cx
pop di
pop bp
ret
_i86_bsame ENDP
_TEXT ENDS
END